1 POKE53280,1:POKE53281,1:POKE53272,21
2 PRINT"[147][144]":PRINTTAB(14)"UNIT PRICES"
3 PRINT"PLEASE SPELL UNIT NAME IN FULL-NO COMMAS"
4 PRINT"EXAMPLE: EGG EXTRA LARGE AA
5 [143]***DATA STATEMENT FORM:***
6 [143]***110 DATA GREEN ONION,.32 ***
7 [143]**DATA STATEMENTS BEGIN AT 100.TO    GET BACK INTO PROGRAM,TYPE:RUN RET.**
8 [153]"FOR DATA STATEMENT FORM TYPE:":[153]:[153] [163]11)"RETURN LIST 5-7 RETURN"
9 [153]:[153]:[153]:[153]
10 [153]"WHAT PRICE DO YOU WANT"
11 [140]
12 [156]
13 [143]*PROGRAM WRITTEN 7 MARCH '78 BY*             **MIKE HAGLUND**
20 [133] F$
30 [135] F1$
35 [139] F1$[178]"EOF" [137] 70
40 [139] F1$[178]F$ [167] [135] A:N[178]N[170]1:[153] A ;:[137]60
50 [137] 30
60 B[178]A[170]B
65 [137] 30
70 [139] N[178]0 [167] [153]"I DON'T HAVE ANY ";F$;" IN MY DATA BANK":[153]"MASTER!!":[137] 10
74 [143]****STATEMENT #75 AVRAGES DATA   AND ROUNDS DOWN TO NEAREST .01****
75 AV[178]B[173]N:AV[178]100[172]AV:AV[178][181](AV):AV[178]AV[173]100
80 [153]:[153]:[153]:[153]
95 [153]"AVRAGE PRICE IS:$";AV
99 [137] 10
100 [131] BLUE CHEESE 4 OZ,.53,BLUE CHEESE 4 OZ,.53
101 [131] VEAL SHOLDER STEAK,.99,LEAN GROUND BEEF,1.19
103 [131] IMITATION PICNIC HAM,.98
104 [131] HERRING,.49,RUM 151,2.66
105 [131] RUDABAGA,.39,GREEN ONION,.29,B F MAYO 16 OZ,.89
106 [131] RADISH,.25,151 RUM,2.66
107 [131] GREEN ONION,.29,DINNER OUT,7.61
108 [131] EGG EXTRA LARGE AA,.69
109 [131] TURNIP,.39,PEA SOUP,.39
110 [131] ASPARG,.89,TANGLO,.49
111 [131] CHICKEN THIGH,1.19,DINNER OUT,10.32,BACON,1.09
112 [131] GUAVA JUCE,.98,CHUCK SHOLDER,.98
113 [131] VITAMIN B COMPLEX,5.75,VITAMIN A,.85,CALCIUM,1.47,VITAMIN C 500MG.,1.99
114 [131] GUAVA JUCE,.98,BUTTER,1.39,CHUCK SHOLDER,.98,LETTUCE,.49
115 [131] RADISH,.29,MUSHROOM,1.98,151 RUM,2.66
116 [131] DINNER OUT,10.44,LONDON BROIL,1.69,LETTUCE,.59,MUSHROOM,1.98
117 [131] DINNER OUT,5.06,LONDON BROIL,1.59
118 [131] GREEN ONION,.19,MUSHROOM,1.98,CHICKEN LIVER,.79,YELLOW ONION,.25
119 [131] CAULIFLOWER,.39,TANGLO,.59,LEAN GROUND BEEF,1.19,MUSHROOM,1.98
120 [131] LONDON BROIL,1.79
10000 [131] EOF
10001 [143]**DONT ERASE STATEMENT 10000-     **IT MEANS "END OF FILE"**